home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 July / 1988-07.d64 / zipper #2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  1.5 KB  |  37 lines
  1. 10 rem copyright 1988 compute publications, inc. - all rights reserved
  2. 15 poke 53280,15:poke 53281,12:poke 646,1
  3. 20 print"[147]   copyright 1988 compute! pub., inc."
  4. 30 printtab(11)"all rights reserved":fori=1to1500:next
  5. 40 fori=1to96:reada:x=x+a:next:ifx<>787236thenprint"data statement error":stop
  6. 50 restore:print"[147]":printtab(8)"press and hold space bar"
  7. 60 print:printtab(9)"to open musical zipper"
  8. 70 print:print:printtab(7)"hold u to hear upper voice
  9. 80 [153]:[153][163]7)"hold l to hear lower voice
  10. 90 poke650,128:rem repeat all keys. necessary when u and l are held down.
  11. 100 f=.9
  12. 110 v=54272:v1=54273:v2=54279:v3=54280:k=256
  13. 120 fort=vtov+23:poket,0:next
  14. 130 pokev+24,15
  15. 140 pokev+5,9:pokev+6,16:pokev+12,9:pokev+13,16
  16. 150 pokev+3,8:pokev+10,8
  17. 160 forq=1to48:readm,n:m=m*f:n=n/f
  18. 170 ifa$="l"thenm=0:rem cancels upper voice
  19. 180 ifa$="u"thenn=0:rem cancels lower voice
  20. 190 pokev1,int(m/k):pokev,m-int(m/k)*k
  21. 200 pokev3,int(n/k):pokev2,n-int(n/k)*k
  22. 210 pokev+4,65:gosub270:pokev+4,64
  23. 220 pokev+11,65:gosub280:pokev+11,64
  24. 230 geta$:ifa$=""then260
  25. 240 ifa$=" "thenf=f*1.05:rem space bar increases relative pitch factor
  26. 250 iff>4thenf=4:print:print"      musical zipper is wide open![145][145]"
  27. 260 next:restore:goto160
  28. 270 fort=1to50:next:return
  29. 280 fort=1to35:next:return
  30. 290 data6430,9634,7217,8583,8101,8101,9634,6430,8583,6430,8583,4817,10814,6430
  31. 300 data9634,6430,9634,8101,12860,6430,12139,8101,12860,9634,9634,8583,8101
  32. 310 data8101,6430,8583,7217,7217,8101,7217,8583,5407,9634,7217,10814,7217,9634
  33. 320 data8583,8583,7217,8201,8583,7217,10814,8101,9634,6430,8583,6069,8101,6430
  34. 330 data6430,7217,6430,4817,4817,6069,6430,7217,6430,8583,8101,8101,6430,7217
  35. 340 data8101,8101,9634,6430,8583,7217,8101,8101,8583,9634,8101,8583,8583,8583
  36. 350 data7217,10814,9634,9634,8583,9634,8101,12860,6430,12139,6430,12860,6430
  37.